home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / Other Langs / Tickle-4.0 (tcl) / src / PROC_TEXTalis.c < prev    next >
Text File  |  1993-11-18  |  2KB  |  55 lines
  1. /*
  2. ** This source code was written by Tim Endres
  3. ** Email: time@ice.com.
  4. ** USMail: 8840 Main Street, Whitmore Lake, MI  48189
  5. **
  6. ** Some portions of this application utilize sources
  7. ** that are copyrighted by ICE Engineering, Inc., and
  8. ** ICE Engineering retains all rights to those sources.
  9. **
  10. ** Neither ICE Engineering, Inc., nor Tim Endres, 
  11. ** warrants this source code for any reason, and neither
  12. ** party assumes any responsbility for the use of these
  13. ** sources, libraries, or applications. The user of these
  14. ** sources and binaries assumes all responsbilities for
  15. ** any resulting consequences.
  16. */
  17.  
  18. #include <Types.h>
  19. #include <Resources.h>
  20. #include <QuickDraw.h>
  21. #include <Windows.h>
  22. #include <Memory.h>
  23. #include <AppleEvents.h>
  24. #include <Aliases.h>
  25.  
  26. pascal OSErr
  27. PROCEntry(dataType, dataPtr, dataSize, toType, refCon, resultDesc)
  28. DescType        dataType;
  29. char            *dataPtr;
  30. long            dataSize;
  31. DescType        toType;
  32. long            refCon;
  33. AEDesc            *resultDesc;
  34. {
  35. int            myerr;
  36. #pragma unused (dataType, refCon)
  37.  
  38.     /*dprintf("TEXT->alis: type '%4.4s' dataPtr x%lx dataSize %ld toType '%4.4s' ",
  39.                 &dataType, dataPtr, dataSize, &toType);*/
  40.     
  41.     resultDesc->descriptorType = toType;
  42.     
  43.     myerr = NewAliasMinimalFromFullpath(dataSize, dataPtr,
  44.                                         NULL, NULL, (AliasHandle *)&(resultDesc->dataHandle));
  45.     if (myerr != noErr)
  46.         {
  47.         /*dprintf("TEXT->alis: ERROR #%d from NewAliasMinimalFromFullpath() ", myerr);*/
  48.         }
  49.     
  50.     /*dprintf("TEXT->alis: myerr %d retType '%4.4s' retHdl x%lx ",
  51.                 myerr, &resultDesc->descriptorType, resultDesc->dataHandle);*/
  52.     return myerr;
  53.     }
  54.  
  55.